perm filename S1[1,LCS]1 blob sn#330342 filedate 1978-01-20 generic text, type T, neo UTF8
  1) SC1.F4[1,LCS] and 2) SC1.F4[SCR,LCS]	1-20-78 14:29	pages 2,2

**** File 1) SC1.F4[1,LCS], Page 2 line 25
1)		1 LN,ITYP,TPALN(4),JED
1)	CC 7/74 COLGATE  COMMON/TYP/ IS FOR COLTTY ROUT.
1)	C  SEE LABEL 1774 AND ABOVE RE. BUFFER LIMIT.
1)		COMMON/VV/LIMIT,V(4000) /A/ROFF(27),NP(27),PCH(27,32),
1)		1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
**** File 2) SC1.F4[SCR,LCS], Page 2 line 25
2)		1 LN,ITYP,TPALN(4),JED /SAM/ISAM
2)	CC 7/74 COLGATE  COMMON/TYP/ IS FOR COLTTY ROUT.
2)	C  SEE LABEL 1774 AND BELOW RE. BUFFER LIMIT.
2)		COMMON/VV/LIMIT,V(16000) /A/ROFF(27),NP(27),PCH(27,32),
2)		1 RDEV(27),IPT(27,31),XT(27),OTH(20,16),SCAL(101)
***************


**** File 1) SC1.F4[1,LCS], Page 2 line 48
1)		DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/4000/
1)		1, JFM(3)/','/
**** File 2) SC1.F4[SCR,LCS], Page 2 line 48
2)		DATA KZY/27/,ISEMI/';'/,IQT/'"'/,LIMIT/16000/
2)		1, JFM(3)/','/
***************


**** File 1) SC1.F4[1,LCS], Page 2 line 54
1)		LPAR=0
**** File 2) SC1.F4[SCR,LCS], Page 2 line 54
2)		ISAM=0
2)		LPAR=0
***************


**** File 1) SC1.F4[1,LCS], Page 2 line 112
1)		IF(K.NE.'EDIT')GO TO 3112
1)		JED=0
**** File 2) SC1.F4[SCR,LCS], Page 2 line 113
2)		IF(K.NE.'999')GO TO 999
2)		ISAM=-1
2)		TYPE 1999
2)		GO TO 2112
2)	C SAMSWITCH ALLOWS FOR OVERLAPS OF INSTRUMENTS
2)	1999	FORMAT(' "SAMSWITCH" HAS BEEN SET.')
2)	999	IF(K.NE.'EDIT')GO TO 3112
2)		JED=0
***************